﻿Public Class ChiTietThoiKhoaBieuBUS
    Public Function LayDanhSachChiTietThoiKhoaBieu() As List(Of ChiTietThoiKhoaBieuDTO)
        Dim cttkbDAO As New ChiTietThoiKhoaBieuDAO
        Return cttkbDAO.LayDanhSachChiTietThoiKhoaBieu()
    End Function

    Public Function ThemChiTietThoiKhoaBieu(ByVal cn As ChiTietThoiKhoaBieuDTO) As Integer
        Dim cttkbDAO As New ChiTietThoiKhoaBieuDAO()
        Return cttkbDAO.ThemChiTietThoiKhoaBieu(cn)
    End Function

    Public Function XoaChiTietThoiKhoaBieu(ByVal cttkb As ChiTietThoiKhoaBieuDTO) As Integer
        Dim cttkbDAO As New ChiTietThoiKhoaBieuDAO
        Return cttkbDAO.XoaChiTietThoiKhoaBieu(cttkb)
    End Function

    Public Function SuaChiTietThoiKhoaBieu(ByVal cttkb As ChiTietThoiKhoaBieuDTO) As Integer
        Dim cttkbDAO As New ChiTietThoiKhoaBieuDAO
        Return cttkbDAO.SuaChiTietThoiKhoaBieu(cttkb)
    End Function

    Public Function TraCuuChiTietThoiKhoaBieu(ByVal cttkb As ChiTietThoiKhoaBieuDTO) As List(Of ChiTietThoiKhoaBieuDTO)
        Dim cttkbDAO As New ChiTietThoiKhoaBieuDAO
        Return cttkbDAO.TraCuuChiTietThoiKhoaBieu(cttkb)
    End Function

    Public Function LayTongSoTietCuaGV(ByVal cttkb As ChiTietThoiKhoaBieuDTO) As Integer
        Dim cttkbDAO As New ChiTietThoiKhoaBieuDAO
        Return cttkbDAO.LayTongSoTietCuaGV(cttkb)
    End Function

    Public Function LayBaoCaoThoiKhoaBieu() As Integer
        Dim cttkbDAO As New ChiTietThoiKhoaBieuDAO
        Return cttkbDAO.LayBaoCaoThoiKhoaBieu()
    End Function
End Class
